home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Programming / AMOSList / AMOSLIST / text0120.txt < prev    next >
Encoding:
Text File  |  1998-04-01  |  1.0 KB  |  36 lines
  1. At 11:40 PM 3/9/98 -0500, you wrote:
  2. >How about:
  3. >if lower$(x$)="hello" then blah blah
  4. >                      Giark
  5.  
  6.  
  7. Visual Basic's SELECT CASE statement has nothing to do with upper or lower
  8. case... what it does is 
  9. replace "if..then..else.." statements. Here's another example..
  10.  
  11. --AMOS--
  12. line input "How old are you?";Age
  13. if Age >10 then print "You are less than 10 years old."
  14. if Age =21 then print "Hey!! Now you can drink alcohol in the U.S.!!"
  15. if Age >22 then print "WOW, You're OVER 21!!!"
  16. --end--
  17.  
  18. --VB--
  19. line input "how old are you?;Age
  20. SELECT CASE Age
  21. CASE < 10
  22. print "You are less than 10 years old."
  23. CASE =    21
  24. print "Hey!! Now you can drink alcohol in the U.S.!!"
  25. CASE > 22
  26. print "WOW, You're OVER 21!!!"
  27. END SELECT
  28. --end--
  29. ----------------ICQ# 1860019-------------------
  30. ------------VB5-Learning-Edition---------------
  31. -------"To Transcendence and BEYOND!!!"--------
  32. --Original Art, stories, & all original minds--
  33. ------- http://www.radiks.net/skid/ -----------
  34. -----------------------------------------------
  35.  
  36.